Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / hppcmode.arc / PC.ASM < prev

Wrap

Assembly Source File | 1986-01-21 | 39.9 KB | 3,285 lines

; ; code to emulate the IBM PC ROM BIOS on the HP150. ; ; changed March 7, 1985 by MK to improve Line Draw mapping. page 61,132 AVIDEOSEG EQU 0D000H BIOS_TIMER EQU 400H ;OFFSET TO 4 BYTE HP150 TIMER HI_VID_FUNC EQU 15 ;HIGHEST INT 10 FUNCTION video_frequency equ 6000 ; 60 cycles per second * 100 pc_frequency equ 1821 ; 18.21 cycles per second * 100 esc equ 27 e_cr equ 0dh e_lf equ 0ah e_bs equ 08h ctrls equ 13h ctrlx equ 18h e_true equ 01h e_false equ 00h ; ; entry point to firmware. ; row_jumps segment at 0000h ; org 42fh mem_mgr label far ; row_jumps ends ; ;***************************************************************************** pccode SEGMENT byte public 'CODE' ASSUME CS:pccode,DS:pccode ; ; DATA AREA FOR RESIDENT CODE ; VARIABLES LOW_ROW DB 0 HIGH_ROW DB 0 CURSPOS DW 0 ; ; ; these three used in MSDOS buffer keyboard input. bufptr dw 0,0 bufmax dw 0 bufindex dw 0 ; ; these variables used to return special strings, like an ANSI ; cursor position request. ret_buf dw 0 ret_cnt dw 0 old_in_hand db 0 ; ; timer_cnt dw video_frequency pc_active db e_false IOCTL_dev_info dw 0 ; ; these variables used by ANSI escape sequences esc_seen db e_false in_ansi db e_false ansi_enh db 0ffh saved_curpos dw 0 ansibuf_len dw 0 ansibuf db 10h dup(0) cursensebuf db esc,"[00;00R" ; VALUE IS 0 IF NO DATA IS IN HAND IN_HAND DB e_false IN_DATA DW 0 extrn kb_init:near extrn kb_reset:near extrn kb_is_q_empty:near ; ; Entry points. MS-PASCAL calling conventions used. ; public pcinit,pcterm ; pcinit proc far push ds ; save some regs push es push bp ; push cs ; our data is in the code seg pop ds ; mov ax,3521h ; get MSDOS vector for later calls int 21h mov word ptr msdos_entry,bx mov word ptr msdos_entry+2,es ; call init_interrupts ; call kb_init ; initialize the keyboard driver ; call enable_pc ; pop bp pop es pop ds ret pcinit endp ; ; pcterm proc far push ds ; save some regs push es push bp ; push cs pop ds ; call disable_pc call kb_reset ; clear keyboard driver. call clr_interrupts ; pop bp pop es pop ds ret pcterm endp enable_pc proc near mov ax,4400h ; save console device info xor bx,bx ; console handle is zero int 21h mov dh,0 ; clear high byte if info. mov IOCTL_dev_info,dx ; call init_video mov pc_active,e_true mov ansi_enh,0ffh mov ah,83h int 16h ret enable_pc endp ; disable_pc proc near mov pc_active,e_false mov ah,84h int 16h call reset_video ; mov dx,IOCTL_dev_info ; restore dev info mov ax,4401h xor bx,bx ; console handle = 0 int 21h ret disable_pc endp ; HERE ON INTERRUPT 10 INT10: STI ;RESTORE INTERRUPTS PUSH SI PUSH DI PUSH DX PUSH CX PUSH BX PUSH ES PUSH DS PUSH AX PUSH CS POP DS ; test ah,80h ; test for extended functions jz normal_int10 ; mov di,offset extend_int10_vects cmp ah,86h jg badcall ; and ah,7fh ; clear extend fct flag. jmp short int10_exit ; normal_int10: mov di,offset int10_vects CMP AH,HI_VID_FUNC JG BADCALL ;ERROR ; int10_exit: push ax MOV AL,AH XOR AH,AH SHL AX,1 ADD DI,AX pop ax JMP WORD PTR [DI] ;CALL SERVER FOR INT10 SUBFUNC ; UNSUPPORTED INT 10 SUBFUNCTIONS SET_MODE: ;SET VIDEO MODE SET_CTYPE: ;SET CURSOR TYPE ACT_DISP_PAGE: ;SELECT ACTIVE DISPLAY PAGE SET_COLOR: ;SET COLOR PALETTE / BACKGROUND COLOR WRITE_DOT: ;WRITE A SINGLE PIXEL READ_DOT: ;READ A SINGLE PIXEL BADCALL: JMP RETURN ; INT10_VECTS: DW OFFSET SET_MODE ; 0 DW OFFSET SET_CTYPE ; 1 DW OFFSET write_cursor ; 2 DW OFFSET READ_CURSOR ; 3 DW OFFSET READ_LPEN ; 4 DW OFFSET ACT_DISP_PAGE ; 5 DW OFFSET SCROLL_UP ; 6 DW OFFSET SCROLL_DOWN ; 7 DW OFFSET READ_AC_CURRENT ; 8 DW OFFSET WRITE_AC_CURRENT ; 9 DW OFFSET WRITE_C_CURRENT ; 10 DW OFFSET SET_COLOR ; 11 DW OFFSET WRITE_DOT ; 12 DW OFFSET READ_DOT ; 13 DW OFFSET WRITE_TTY ; 14 DW OFFSET VIDEO_STATE ; 15 extend_int10_vects: dw offset extend_enable ; 80h dw offset extend_disable ; 81h dw offset read_ac_random ; 82h dw offset write_ac_random ; 83h dw offset write_c_random ; 84h dw offset bell_fct ; 85h dw offset status_fct ; 86h ; ; extended INT 10 fucntion 85h, ring bell ; ; entry: fct ah = 85h ; al = frequency. values are 0 through 0fh, for frequencies ; from 290 Hz to 1.7 KHz. ; bl = duration, in units of 100m secs ; bell_fct: and al,0fh or al,030h ; bell_fct_loop: out 19h,al call delay cmp bl,0 jle bell_fct90 dec bl jnz bell_fct_loop ; bell_fct90: jmp return ; ; ; delay 100 milliseconds ; delay proc near mov cx,2800h delay_loop: push si pop si loop delay_loop ret delay endp ; ; beep the bell ; beep proc near mov ax,8509h ; use extended fct to ring bell. mov bl,1 int 10h ret beep endp ; ; extended INT 10 function, enable PC emulation (default). ; extend_enable: call enable_pc jmp return ; extend_disable: call disable_pc jmp return ; ; extended INT 10 fct, return status of PC emulation ; ; on exit: al = 1 if emulation is active ; al = 0 if emulation is inactive status_fct: mov al,pc_active mov ah,0 jmp retnewax ; ; RETURN CURRENT CURSOR POSITION IN DX READ_CURSOR: MOV DX,CURSPOS MOV CX,0 ;DEFAULT/DUMMY CURSOR TYPE POP AX POP DS POP ES POP BX POP DI ;DISCARD OLD CX POP DI ;DISCARD OLD DX POP DI POP SI IRET ;JUST RETURN TO INTERRUPTER ; SCROLLING ; CX = Row , Column of upper left corner ; DX = Row , Column of lower right corner ; BH = Attr char on blank line ; AL = Number of rows to scroll (0 = Blank All) SCROLL_DOWN: NEG AL ;MOVE ROWS DOWN SCROLL_UP: MOV bl,BH ;PASS ATTR IN bL CALL CONV_ATTR ;CONVERT ATTRIBUTE TO HP MOV AH,bl ;AH = ATTRIBUTE (HP) CALL SCROLL_SUBR JMP RETURN ; SUBROUTINE TO HANDLE ALL SCROLLING ; ; entry: al = scroll count. ; dx = row, col of lower right corner ; cx = row, column of upper left ; ah = HP enhancement SCROLL_SUBR: MOV LOW_ROW,DH MOV HIGH_ROW,CH XCHG AL,DH SUB AL,CH ;# OF ROWS IN SCROLL WINDOW JS scroll_quit ;LOWER ROW IS HIGHER THAN HIGHER INC AL ;AL = COUNT OF ROWS IN WINDOW SUB DL,CL ;RIGHT COL - LEFT COL JS scroll_quit ;RIGHT IS LEFT OF LEFT COL INC DL OR DH,DH JNS SC_2 ;JUMP IF SCROLLING UP MOV CH,LOW_ROW ;CH = LOWEST ROW SC_2: XCHG CL,DL ;CL= # OF COLS IN WINDOW, DL = START COL PUSH SI CLD ; ; DL = STARTING COLUMN, CH = NEXT ROW TO BE MOVED INTO, AH = ATTR CHARACTER ; CL = # OF COLS TO MOV, AL = # OF SCROLLS REMAINING, DH = # OF ROWS TO MOV NEXT_SCR: PUSH CX PUSH AX push dx MOV dh,CH CALL ROWADDR pop dx MOV BL,CH XOR CH,CH OR DH,DH JZ DO_FILL ;BLANKING ALL ADD BL,DH ;COMPUTE ROW WE'RE MOVING FROM CMP BL,HIGH_ROW JL DO_FILL ;BELOW LOWER ROW CMP BL,LOW_ROW JG DO_FILL ;ABOVE HIGHER ROW PUSH DI push dx mov dh,bl CALL ROWADDR pop dx MOV SI,DI POP DI push ds ; save our DS push es pop ds ;both ES and DS to video area. REP MOVSW ;MOVE IT pop ds NSCR_1: POP AX POP CX OR DH,DH JNS NSCR_2 DEC CH ;SCROLLING DOWN JMP SHORT NSCR_3 NSCR_2: INC CH ;SCROLLING UP NSCR_3: DEC AL JNZ NEXT_SCR POP SI scroll_quit: RET ; DO_FILL: POP AX ;GET THE ATTR CHARACTER PUSH AX push ds push es pop ds MOV AL,020H ;ATTRIBUTES REP STOSW ;FILL THE LINE pop ds JMP NSCR_1 ; DH = row , DL = column ; on exit ES:DI = addr of char in video mem. ROWADDR: mov ax,avideoseg mov es,ax ; mov ah,0 mov al,dh mov di,ax SHL di,1 SHL di,1 ADD di,row_tab ;DI= ADDR INTO 25 ENTRY HARDWARE PTRS MOV AL,DL CBW ADD AL,es:[di] ADC AH,es:[di+2] SHL AX,1 ;AX = ADDR IN VIDEO MEMORY OR ROW,COL MOV DI,AX RET ; WRITE CHARACTER, NO ATTRIBUTE WRITE_C_current: mov dx,curspos write_c_random: MOV bl,0FFH ;NO ENHANCEMENT CHANGE write_c_common: push ax push bx CALL FASTC pop bx pop ax inc dl ; increment the column cmp dl,79 jle write_c_continue mov dl,0 inc dh write_c_continue: loop write_c_common JMP RETURN ; WRITE CHAR AND ATTRIBUTE WRITE_AC_CURRENT: mov dx,curspos write_ac_random: CALL CONV_ATTR ;CONVERT ATTRIBUTE TO HP jmp write_c_common ; WRITE CHARACTER AT CURRENT CURSOR WRITE_TTY: call conout jmp return write_cursor: call setcursor JMP RETURN ; ; Read the "light pen" For the HP150, read the touch screen. read_lpen: mov ah,81h ; Extended HP function for reading touch screen. int 16h cmp al,0ffh ; check if no data available. jne got_lpen ; mov ah,0 jmp retnewax ; got_lpen: mov dx,ax ; return row col position. mov ch,ah ; return graphics row. mov cl,3 shl ch,cl mov bl,al ; bx gets pixel col. mov bh,0 mov cl,3 shl bx,cl mov ah,1 ; pop si ; return, preserving AX,BX,CX and DX pop ds pop es pop si pop si pop si pop di pop si iret ; ; read a screen character read_ac_current: mov dx,curspos read_ac_random: call fastread jmp retnewax ; ; read the char at current screen loc. return al = data, ah = attribute ;(dh,dl) has (row,col) ; fastread proc near call rowaddr mov ax,es:[di] call conv_hp_to_ibm push bx ; save attribute in BL ; and ax,037fh ; isolate character set code cmp ah,0 jz fastread90 ; done if normal char set ; mov si,offset game_chars ; search game chars for match call check_match jnc fastread90 ; no carry if good match ; mov si,offset extend_chars ; check line draw, math or foreign call check_match jc fastread20 ; jump if unknown value ; or al,80h ; put into eight bit range jmp short fastread90 ; fastread20: mov al," " ; unknown char, return blank ; fastread90: pop bx ; restore attribute mov ah,bl ret fastread endp ; ; check_match -> serach char set table for match ; ; on entry: al holds 7 bit code. ah holds character set code ; si points to char set table ; ; on exit: carry set if no match ; if carry not set, al has index value of found char ; check_match proc near mov dl,0 ; dl is index into table check_loop: mov cx,[si] ; get next table entry inc si ; point to next word entry inc si cmp cl,-1 ; test if at end of table je check_nomatch ; and cx,037fh ; clear out extraneous bits cmp cx,ax je check_goodmatch ; inc dl ; inc table index jmp check_loop ; check_goodmatch: mov al,dl ; replace input wchar with translation clc ; signal good match ret ; check_nomatch: stc ; carry means no match ret check_match endp ; ; convert hp attribute to IBM attribute. AH holds attribute. ; return IBM attribute in bl ; conv_hp_to_ibm: mov bl,07h ; scratch space in bl test ah,40h ; map half bright to full intensity jz conv_hp10 or bl,08h conv_hp10: test ah,20h ; test underline jz conv_hp20 and bl,88h or bl,01h conv_hp20: test ah,10h ; test inverse video jz conv_hp30 and bl,0f8h or bl,70h conv_hp30: test ah,08h ; test blinking jz conv_hp40 or bl,80h conv_hp40: test ah,80h ; test security jz conv_hp50 and bl,88h conv_hp50: ret ; ; CONVERT ATTRIBUTE FROM IBM style to HP. value is in BL CONV_ATTR: push ax xor al,al ; scratch space for attribute. OR bl,bl JNS CA_1 ;NOT BLINKING OR al,8 ;DH = BLINK CA_1: TEST bl,8 JZ CA_2 ;Map high intensity to half bright OR al,40H ;SET HALF-BRIGHT CA_2: AND bl,077H CMP bl,1 JNE CA_4 OR al,20H ;UNDERLINE CA_4: CMP bl,070H JNE CA_6 OR al,10H ;INVERSE VIDEO CA_6: cmp bl,0 jne ca_7 or al,80h ;SECURITY CA_7: mov bl,al pop ax RET ; ENTERED WITH ENHANCEMENT IN BL, CHAR IN AL ; (DH,DL) has (row,col) FASTC: PUSH AX CALL ROWADDR POP AX ; cmp bl,0ffh ; if default enhance, pick up real one jne fastc5 ; mov bl,es:[di+1] and bl,0f8h ; leave Disp enhancements, clear Line and Math ; ; check for IBM PC game chars in range 00h to 1fh ; fastc5: test al,0e0h jnz fastc10 ; mov ah,0 mov si,ax shl si,1 mov ax,word ptr [si+game_chars] and al,7fh or bl,ah jmp short fastc50 ; ; check for eight bit extended chars. ; fastc10: test al,80h jz fastc50 ; and al,7fh mov ah,0 mov si,ax shl si,1 mov ax,word ptr [si+extend_chars] and al,7fh or bl,ah ; fastc50: mov es:[di],al mov es:[di+1],bl ret ; RETURN THE FIXED VIDEO STATE OF THE 150 VIDEO_STATE: POP AX POP DS POP ES POP BX MOV BH,0 MOV AX,05002H ;80 COLUMNS X 25 : B & W JMP RETCX ;***************************************************************************** ;* INTERRUPT 11 processing ;***************************************************************************** ; RETURN EQUIPMENT AS 2 DISCS SYSTEM, 80X25 B&W VIDEO, NO RS232/ PRINTER INT11: STI ;RESTORE INTERRUPTS MOV AX,007DH ;SEE IBM ROM BIOS LISTING FOR MEANINGS IRET ;****************************************** ;* INTERRUPT 12 memory size check ; return the number of 1K memory blocks available. ;****************************************** ; INT12: push si ; save some regs push ds push cx push dx push bx ; mov ax,256 ; minimun for HP150 is 256K bytes memory mov cx,4000h ; CX holds segment value, starting at 256K xor si,si ; for zero offsets. mov bx,55aah ; int12_loop: mov ds,cx ; point to high memory cli ; disable interrupts. mov dl,[si] ; save test word mov [si],bl ; see if we can write to this loc cmp [si],bl jne int12_exit ; no more memory if no match ; mov [si],bh cmp [si],bh jne int12_exit ; mov [si],dl ; here if valid memory. restore original sti ; re-enable interrupts add ax,64 ; move in 64K increments add cx,1000h ; update segment value cmp cx,9000h ; test if full load of memory jne int12_loop ; int12_exit: sti ; re-enable interrupts pop bx pop dx pop cx pop ds pop si iret ; return with memory size in AX ;***************************************** ;* INTERRUPT 1C dummy timer tic routine. ;******************************************* ; Interrupt 1c, timmer tic. Dummy routine. May be replaced by ; application routine. INT1C: IRET ;****************************************** ;* INTERRUPT 42 HP150 VIDEO ; ; Interrupt 42, HP150 video interrupt. This interrupt happens 60 times ; a second. Use it to make sure that our filter on MSDOS interrupt 21 ; stays in place, and to implement the IBM timer tic, 18.2 times a second. ;******************************************* int42: pushf ; do real video interrupt call dword ptr cs:[v_int42] ; push ax ; save some regs push si push es push ds ; push cs ; our data is in the code segment pop ds ; ; Check that MSDOS int 21 hasn't been restored to old value. xor ax,ax mov es,ax mov si,84h ; point straight to 0:84 for interrupt location mov ax,word ptr [v_int21+2] ; compare code segments. cmp ax,es:[si+2] jne int42_timer ; jump if still ok. ; cli ; disable interrupts mov word ptr es:[si],offset int21 mov word ptr es:[si+2],cs sti ; int42_timer: sub word ptr timer_cnt,pc_frequency jnc int42_exit ; ; get here for about 1 out of 3 video interrupts (1821/6000) add word ptr timer_cnt,video_frequency int 1ch ; execute user interrupt routine. ; int42_exit: pop ds pop es pop si pop ax iret ;******************************************** ; ; Display handling routines. ; ;******************************************* conin_ctrlc: call constat jz conin_ctrlc call ctrlc_check call conin ret ; ; conin -> read a char from keyboard. conin: cmp in_hand,e_true je conin_havechar ; mov ah,0 int 16h jmp short conin50 ; conin_havechar: mov cx,ret_cnt or cx,cx jz conin_real_input ; mov si,ret_buf mov al,[si] inc ret_buf dec ret_cnt jnz conin_ret90 ; mov cl,old_in_hand mov in_hand,cl conin_ret90: ret ; ; conin_real_input: mov ax,in_data conin50: cmp al,0 ; if non-ascii char, return as two bytes jne conin90 mov bl,ah ; mov bh," " mov in_data,bx ; save for next read. mov in_hand,e_true ; flag more data available. ret ; conin90: mov in_hand,e_false ret ctrlc_check: cmp byte ptr in_hand,e_false je ctrlc_check90 cmp b_q S: callH TTYON}ni10 10 }HP)10 S : call pc_H SCURR: call ;quenc╣ ifextendUP th10 10 curso SCT Woc. th10 10 10 10 10 10 10 10 10 10 10 10 10 10 ERRU d.2latioONndo ROendp E I th10 ìON10 10 10 10 elayH ffs SUBRnireaON10 10 10 SUB th10 10 DX th10 torb_ th10 10 10 ENatFFHet sHIGH_ SC10 OR THIGH_L = :neONENN_z ONalseor 10 10 alse 1.zeON10 10 k i,Ht_lp: P1hON10 10 ow c enh ; ; eon e LL th10 10 10 10 10 10 10 10 10 PUSH OND pc_10 . mov b ; ; e ;ght EST th10 0_vON10 10 que0 te so SCemeON10 10 10 pop s th10 e =·or scree· 1.WIN d·.210 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 A MS- th10 10 10 lineHP)10 is alat pc_it: SS lat ;v cneaven ifoff cyc th10 10 10 10 10 10 endp venL = ALL STAvenN_h eCX, th10 READ_CON10 10 yboON10 10 000oi th10 10 ?. ; RO10 10 10 10 ingsSTC th10 bx,b di 0dni ;L ; W 0dHP) Lncy th10 ; corn 0d ;10 44 = A ifati_2 = AatvecON INTO SCend_eba = AL = mov dansib = AN_10 ; mHor vectl cH 1.10 NG H.218h÷H: P10 10 @ RO ; ; WRITE_TT th10 10 ndo thH 10 return g wni10 10 10 10 _initTA th pc_the chry+: callë_qk 10 10 10 elaà pc_LL D_ w10 trn 2àOV dX pH,Aà= AItruesog b_exiCT w10 endpingsoursh,alfsoBOC AHte_c w10 10 10 10 10 10 10 ndoCH 10 10 10 10 10 10 10 10 t 1act w10 10 10 10 10 10 mm w10 DW OFFnear w10 v_k 10 10 10 endp ttursc mov j= chCTSg b10 10 10 10 10 10 10 10 10 10 ENOV d10 10 10 10 10 10 10 10 10 10 10 10 10 RITttfct910 10 10 10 10 10 10 10 HANGirettgot10 10 10 10 10 10 10 10 10 10 DW OFfct910 SI E OOV d10 COLSE O= it k 10 10 : k 10 10 wek OP eg 10 10 10 10 4ion, w10 queâ w10 ofk 10 10 10 10 10 10 10 10 OP CH col k 10 10 10 ax,POP gotS Mk lineeg ,ast.SHL pc_T REk 10 10 bx,k 10 10 10 ax w10 10 O w10 IN_k 10 10 R Pk KIursR k 10 10 LTk 10 10 10 10 _ve pc_10 wax w10 10 10 _vefct9lk 10 10 10 ; sa_vi_2 10 10 _vegote =∙ wOV des popk 10 10 PORH,DING oS:pk ,rOV dTE Csi pemul= ARIk INTOg bLOW_Rk 10 10 10 HP fINGurs10 iteINGBOs VECING0h dG Ae ; w10 10 1 w10 ROWS Tk @fct9:on wCH 10 re l_2 h,81, DH w10 _murn weg 10 10 10 10 10 10 10 10 10 0h _v10 10 INTOàcode10 10 10 10 10 10 10 10 th · if: 10 ndp_v10 10 IDEO ifLOW_R╝ theg = dCALL:P_ popX p10 10 10 10 10 10 10 10 men_vi_v10 DO_FI leg pt10 got10h10hvideP_10 10 _3P_ndougendp PI JM: ING AUND10hvectst(0 JM_exiX pP_elayOS vll i_v10 h l JMgc P_EN_exi = roP_10 10 OS vAR_v10 10 MOVI_v10 LL_ ; tr ug10 10 EN_FITRIP_10 10 ds I_v10 p P_10 10 60 dx,_v10 andP_D 6h ;10 10 10 10 e theP_D _exicode INCahOS v10 10 D : ;I p_v10 CL dwahpt10 10 DW OF_exi10 OW OP6h ;10 10 DW OFg10 10 lineg10 10 DW OF_FI10 10 DW OFptTINGES 10h ext_PAES 6h ; push j_v10 # pcES ALL col w_ES vectolumno _v10 ugJ,ahOS vER TP_10 10 ;SEPTS,ahptv c LI,ahLOW_R MOP_KIcode10 10 KIX pER R ; read ug10 ISC_v10 L_dP_KI_FIET_CP_KIptR POFFSE_v10 ; ; s ; jmp r6h ;READ_CP__ve PUSD OLer ALL 10 E AT_v10 21 tendeer _exi_FIn ker OS vCX ;ber : L_DH_er g10 10 10 10 STP_10 10 DLP_10 10 _isK PIcode Xl_q PIuged t_v10 10 10 @10h10 10 10 10 v IMEMEN6h ;_mOSMEN G C1 MENALL dx t.MENvect10 10 10 10 pt= N_vOS vOR P_10 : ansi_ z_vg2 N W_vLOW_R1 P_ ifad 10 10 10 10 10 fau(0delayax 16(0ORT10 10 10 10 10 :[(0 equenc POP S10 10 extend POP S10 10 nt sLoop10 T W POP S10 10 10 10 poppciX PO POP S10 10 10h ; 12oop10 10 10 ndoNTE10 10 10 10 endp aroop10 10 10 10 10 10 10 elay ; 12s ;oop10 reaos P ORT DW OFF POP Selayx stOSEP etor e JN JMì = B JNFSFFH POP SEN10010 10 ENOW :newritoopCOU k10 alseC e10 10 alseAL,D10 10 alseNTEk i AL li mo1hhiliend_ow c LO iad e AV i ; 12 ;D POP SD delayint10 = iORTPUSH POP SD x DI POP SD eght ntrbuf JM10 P buf FS0_v' buf 100emen ofbuf OW si ct_buf pci¢_Aoop10 MSAL,DWIN POP SOP NTEATTRIB POP SOP moue E M MSend_ Nbl,1l ad ct v_oop10 Aall rl delayER TR [l ORT10 is al x 10 10 10 10 10 10 10 10 10 10 10 10 10 10 @AL,D10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 kDW OF_ve╜10 10 10 10 10 10 10 10 ;LN _cuORT L POP S,rx ; c POP S10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 m: H Xoop10 10 mov poop10 ush e POP S@end_10 puoopad es choop ; 12 ; ; likoopdelay10 10 10 ORT_init POP S10 10 the chh doop10 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS0 10 10 ela┴ ; D10 7,┴ec COL D O┴v iERMEM┴o i10 cle FF_exiiiiiiiiipopLEendpret e ÿh,aO HP (HC AHURSOR uph mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmdodatrnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn0 10 10 ndpiniTI dx,aycinifot 1 OFFos_10 ,0 DI]iniz10 10 elayr _CURR DSAR ; DAV drARec v_ aARv ic CTYARo i chURos_10 OS v ; eTELE i rTEfo kDW OFEN(Hc_rFOTEup alH HI_da theeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeelseTO B= ADDll_HI_ec kDW OFalsefods ) HI_1HANG_looHI_zhrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr r pQctiv ; Dbl,aTE_Activec M SINctivv iBMOWctivo i10 6h moFF: scro moLEweÄ moÿ10 10 DW OF(H10 ; ; rDOW upqueeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeP da ofA ; tTO Bdh,os_10 10 ET A ; tfoby def ; t1theblos_10 S Mree_CUr 10 ; be_CU ; DT REEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE0 10 10 KH_CUv iD _CUo i- ue UNDFFgl,0UNDLEteeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee0 10 ▀ BUND(H10 10 10 10 10 10 }ON10 10 10 10 10 10 10 /olumn ds UMN 4ugn AUMN rDL = ; tlinedeo;SEet UMNntryor a ; tlineDO_F MO ; tKI lBYds enablen stER RevenableIRATTRIB ; tKIDDL_d Fenable 10 curspoenablendpR Pif ndx,w 0; ; ; t}curren R10 ╕√ lo10 _FIILNSCR_ r10 h ;ush c10 10 si NSCR_ntry10 hancNSCR_DO_FX POlliush c10 DLHANGush c10 10 2hush c10 s re,CH DDe ; t INTO 10 0 r,CH ndp, CHotush c10 v ADC0 ISW ues ; t@ e_G C gush c e_dx fe0 I popc ; t10 4ptWush c rOR CURREush cdeo10 10 10 ntry2 _int10ush cDO_F10 10 10 10 10 _m devallTTYYYYcSDO10 ax s10 10 t M devr H SSOR devADquencöSDO10 extend_VIDRct ant s╧SDO10 T WurnDRCROLLI PUSH OFFSETSDO10 ON10 10 10 10 10 10 10 DX SDO10 10 P1_3BU10 dSDO10 "l s10 10 E IN INCr 10 rit INCADDRreale w INCs s DW OFFv aSDO10 ch s10 10 10 IBSDO10 ì3 TINct a10 andTINNO10 /10 10 10 10 10 SUB 5 ndedYPE s}k i_ac5 BU1hcl 5 pub10 DXRT CBle s}drSDO10 10 /DI sDW OF ; cght s.OREahINTNS NSDO10 10 10 DW OFNO10 >ORECROLLI10 10 DW OFY H10 0I pBU lo10 10 DW OFFSE SC ; cC res SCBUue PASSDO10 N pop I pBlct M I pall10 10 lineADDR10 10 lines s_FI s} lo10 off╤ mect a10 10 10 10 10 10 KICROLLI10 10 }10 / lo10 10 wax SDO10 10 10 _vepub10 rc dwBl10 10 10 10 1 dwADDR ;LN SDO10 TE CAT ; c ; csab dwADSTDI SDO10 ati s INTOct avecUNCTATNO10 10 10 10 mov d s INTOY H10 /ON@ndedm: s10 10 10 e uSDO10 _qCH loBl es s10 all ; ; s10 ADDR10 /10 10 10 r the ch[SDOAD10 10 10 10 lo10 LL LL ;ABRCOL ena ;APPERCOU}AI 0 sp10 1hCH FAER h,a, iO DnearC AHCOU}10 ; sp10 ONndocl COUelayOP_CURRdel mX 10 ng A mBRv_COU10 10 10 /; domar 10 10 10 10 10 SEGdomnearc_rt csp10 10 10 10 10 theCOU}10 10 alsec d10 10 D ;COds COUalse ;COHANGILLsp10 hrQU pusOP pbx pusX 10 10 D BRM COU}10 pop dsp10 10 6h m. ;: COU}10 DW OFFSE mER WICOU10 10 4ump mall WINCH ON10 10 SHCOU10 10 theh ;mp s ;CO10 jmp remp scl S M IT0 HOP10 ; be0 HX T RExtesp10 10 KHsp10 D COUlineERRO10 O sp10 10 10 KIar ATTRIBCOU}mptS L = cnearC_2MP L = call ead_1 ; PU offseLT 4 PUVIDEO10 10 _vec d0COU_veall IF OFFS sa10 /CgetsX POR^getsBRS:pCOU,rPP10 /e thei,10 10 OF i,10 10 10 ,D jE Wpos ; BRN 10 10 10 10 10 quenON}10 10 10 10 10 SUB W O10 YPE .7W O10 AHCALL F} = a. bnt mptDH. bbelllARA. b ; ptinrow_t. bOP AWRITE_A,cse 10 e =ERTse 10 es popPOG DPORffh se 10 S:pE:G SI,TE CulatG etnARIuch INTOAND LOW_Rs_SH C╚CHARAReSH CRIB10 itese 10 s ,se 10 10 msorts r_ead_se 10 ROWS Tinitortbell:ble_pcort ; pTTR uch@OP Ah,81uch@dx,c10 popse 10 int 1 CHAse 10 5 uch10 CH,Cs ofuch10 SI,T Spop se 10 ndo bq_ b = d_inq_ OFFth ; co10 10 Bh H = N10 = arneq_e_fals10 oinOFFSEDS CALL: ; co pop0h HAse H = N10 dxXCHOFFSEB en ;SOFFSERY DO_FI ; co pop ; dOV dendp jmp rvidev iH = N10 _3PPendp b OFFSE ; co10 10 10 10 10 10 10 ; 15op b10 10 10 10 ll ; co10 10 10 hanH = N10 10 10 10 10 = ro the H = N10 eqmpts ; 0h 10 /FILLdl10 /C e: call lo10 10 /10 10 10 10 10 10 INTODS DLWRITE_ASH D0h _iscurreSH DC C Xic H = N10 eX,SH DRY u,0fSH D ; , CH ; co@ jmp rv RDSUBRTues ; co10 10 G CH = #SUBR jldx disablSUBRdl10 }H = N bptst H = N OFF10 10 10 10 ansi_nH = Nme10 10 10 e_fals1 PT 10 _qe =T 10 TTYthT 10 ax leatendeNO E10 10 10 10 10 10 10 10 10 10 10 10 extendmicurr10 10 10 10 10 10 popn of PUSH wrT X PO pc_ING Ales10 10 ndoIDE10 10 10 10 10 10 10 10 endp D AT10 10 10 10 10 10 10 10 10 10 ah,7T 10 10 z tT 10 10 10 elayσ10 10 10 10 10 IBMP Ier 10 10 EN E10 e.T 10 10 10 10 10 10 10 ENT int10ROMT 10 6h ;[diT 10 YPE D AT10 10 10 hT 10 10 ear ;b dow ccont ;bE Ie D AT10 10 ;D2 ;b E10 10 10 10 PUSH h ; ;bσDI WRITE_CT 10 : equeT 10 INTD ATKI PI0_vconCROLL ;10 >CROLLn of si ; iCROLLT ¢pT 10 ng b ; IDEWINwax ; proC equT 10 ue fh, ; ON Nte iH_E Ict S:pT 10 A colH_ EER TTTlH_NO ExoD ATlineσit: LEFTH_ dv c push . ; er offR T 10 IN_3. ; ; RETREN. ; n of 10 read_a. ; T h eenable_V,lesALL dxV,IDEyboD AT_vepro000 OV,h x10 es:T 10 0NV├E IingsTE C├ arbx,bno ├ E10 DI├NO E L ; pu├σ ; c¡├ dSTD AT INTOer atiUB E PcurrvecMOV E P ;end_eH,bE Pn of 10 ROUE PT AHAX,_3:lesvectD AT@IDEm: : call _3:pro18h0 f_3:h xush eD AT@ON ; dROW T E I10 ndoT ar ; ; _SCT EOW p T NO E_init ORT 10 the chcomT d SHz} PIE INALL OR DDD0 LL rOR Dbeep10 _cnOR Dct tER_fct_FI10 AImaxem: _exi«emnf10 doem Oh,aOW em axC AHpoemmov h mHzndoIF trnLOW_R,0 = rowiniDO_F,0 H10 T O,0 write_ct 1e_fals,0 nu,0 29,0 ; 10 mmOR TY PI_CURR"[OR TYYY0 AV0h OR TYbeepv_Hzelayct tc ablOR TY ;R chNEX,bx: OS vHzENnf iCS FI10 A Θ,bx axc_rseq,bxmov alHIGH_RFI10 theCHARAK = row= ADDsaveFI10 W ar Kwrite_cds dinKnuHANGwrite_c_K ; 10 es:[kb_ PI psekb___0 bl,a: cakb_beep10 SI kb_ct tBMLOWkb_ ;Rit ;ABINI: : HzDW OFnfweILL:INI O WI IINI ax10 pop sINImov quecall l_qIF ofRIl_q = row10 ╖l_q HSH ANDl_qwrite_cby T COl_qnu10 DW OF10 COUS M_DOT al,d PI,asaval,ddd0 T REHz10 10 10 KHFI10 10 mFI10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 KI ax10 10 KImov 10 DUd tIF LTHz_vemov mptT ;d t Hlariad twrite_ctin400d tnu10 m eFI10 e = mov dFI10 10 DIFICOU kw 0 FI10 S:pUBFI10 atid Iê ;RARI fFI10 LOW_RHz INTOnfCHARAar FI10 RIG ACOD axs cyCODmov G AHz@IF r_Hz10 IF ROWS Th dwUL H: ,FI10 TTR usedULnuh,81Hz@ ; 10 popFI PIint 10_VFIII0 10 DW OFFIbeep10 KIFI10 T Sll (FI10 ndoHz}COLOR10 10 }DI]th N² MOV Bto ² O = at w²2910 oin 0 D;CCALL:r_ 0 Deci HAfor f pop ; ; dx6h 0 Dout men90: pop10 DO_FI∞ 0 Dorm d= "lMENvideo i"lmov I10 cl "luc OFFSEfor fndoº,0 for fndoorm10 ; 15 pop10 X pfor f10 10 llfor felay MOV h for f10 10 torrm tou29 = rofor f10 10 eqfor f10 10 10 10 10 10 10 CALIMEout of rolu pop10 10 10 10 10 E HAL pop10 10 IS t ;mov I 60 d *t ;ucandfor falseº10 ebt ;h c10 10 D MEN10 dpIMDI]10 = H pop10 10 T RIM O CL MOV pop10 10 10 10 10 OF : pop10 wefor fDW OFuc10 10 EN_v avfor fDW OFt MrandendeOSormTINGfor f10 10 10 ±elmov I pushACKeluc10 10 10 10 thefor fOP orm10 s of pop10 10 RN ; bDI]DL =for fline MOV 10 10 line O10 ll) pop10 10 10 KIMENBYfor fKIDI]10 cou1 ; ; 10 ISC1 out 10 ble_p1 t MET_Ca 1 ormR Pfor f10 10 10 10 10 10 READ_C ah pop10 21 psmsdº J= ADmsdh c10 EL POCOLORPORfor f,rDI]10 10 10 10 10 si pop10 10 hanc PO29rando,At.;C10 the cht.eci_is PUSt. ; ; 10 OR DHt.out efun pop10 uus pop10 ues y pop10 v buf_c nmov I10 ,C pop10 10 10 @ºdx IA pop10 10 } popCOLORptoffse popDI]10 10 10 MOV ansi_r pop O2 JMP pop10 S10 pop10 _qreturn gdeo_ cmp10 10 ,rble:ax 10 }hic10 10 10 10 H S:[P_10 10 10 pop_vextend0h calquen10 10 pop ;A10 10 ndo cmp PUSH S calT: X PO ;actitr10h10 ndo pro kDW OFndo axlatio10 ndo extendendp dP_10 10 rit= N d─int 1= N cmp10 10 10 rea10 10 10 10 10 10 10 10 DX P_10 tor10 EN cmp10 10 10 10 FFH10 10 10 10 10 10 10 10 e.cs T: z 10 alsetr6h ;SUB alr o10 AH P_10 10 10 DW OFT: 10 10 alseal,0ow c10 10 10 10 10 10 10 10 10 D pro10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 INT10 DW OFROLL0_vAHASC ;Aeme>ASCk10 10 OP d¢ ; ; r ;tr10 10 OP r oWIN DW OFFSE ; ax10 RO ; extendue of ;T: 10 DE'P_10 ct s of zr o10 T IS z proER Tis aP_10 10 10 lineROLL10 cm zinitiv cax al quenoff10 10 10 IN_TION P_10 RETendp al k10 read_aal T: 10 10 _ve axALL 10 _ver o10 10 10 10 10 wax P_10 TE C? lal,00rcN Wtr10 ;BP_10 10 10 ,r pro ;L DIN Whic L10 10 10 10 E PT= NCT10 44P_10 OR 85P_10 vec10 10 10 10 10 INTOk mov dROUⁿT: AH; mdi,trvect byP_10 m: NG di, ax18hre P_COU ke udi,al,010 puP_ d es ndoP_ cmp ; ; 10 10 10 OW ten CMhic_init_veP_ROLLthe ch@P_initi# FA CM10 iT N DE00; pe r DEsitrib CM10 CT ON10 10 soleROW CM10 C eON popL d_coLOW INT1 2olV_AINT1cnreadON10 10 A Squ ≥ j = d CM10 ARONndo dw mata, CM10 10 ; CM10 OR TYON10 10 HEONelay(0MP BON10 10 10 10 elaysitM B CM10 10 DX CM10 10 10 10 COU kz t CM10 10 10 10 10 E c fnccnesCL=ncPUT10 SUB+2≥; 83th +2ons ╠vid CM10 ng tSET W+2OV b DW ld+216hFASONalse; 1510 10 10 10 _P80set 00;dw 0 ON10 10 FUNd_c CM10 10 COLSset # OF t fts cald_d10 : mov calL d) ON10 10 nerONDW OFcn] ON10 10 ; ar a16≥s oscree CM10 10 10 OP sitING UONOP OV b ou;RI1616h10 ax,16; 15 ONline(0solONline00; ds AL CM10 10 10 10 10 ] ONline# OF LL rn 0fd_dommoMO CM10 LEFT ON10 10 nt ese CM10 dx ONKIPUT Cp ; ro ≥ S = aro ons WIw vro dw ¿ON_veOV bTA pctro 16hpc_bliro ; 1510 10 10 10 10 10 ,r00;W TON10 10 10 gon CTct,In # OF ; gON INTOd_dvedON INTOL d10 SEGon e10 DSba CM10 HLsh CM10 REM_t: m≥int 1ON10 10 10 10 10 10 ; bON10 10 ,BSTC CM10 84 ; W: m; 1510 pop CM(0al_ency CM00;10 DW OF CMOV b10 KI CM10 10 10 10 # OF elayON}≈10 d inty9TIODon e10 10 LOWEtyh d to TERtyW_R10 e 60ent:CT CALL: 60B10 en 60fct:ax y: 60AlV AL,on e10 ds equ 60mm SUBRg b─ä10 10 ndobee INCk ndoALL RJAND on e10 n kk ndo9= Nk 10 10 10 10 10 10 SUProw,on e10 10 hanon e10 10 10 EN910 ╢mov ent:n:k ENB ; ePAGmov fct:scroEon e10 10 10 EN, pO Hjg:neaent:10 10 10 10 10 IS on e10 10 hon e10 FASk 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 D h d JMk D W_RUNCTsh bLent:ID_k 10 10 10 ,DLfct:10 10 10 10 ah,113L, p= 8LOR Lmmp wop on e10 DATAp(atubeeh wINCatuALL R10 pciatu ; , co; eatu9V ARR21h ≈10 10 10 10 10 10 KImm proc ur 21h h dr.ow,21h W_Ru AXuse ent:10 _inituse BREAD_ 6use fct:ommo PUuse Al10 ble_puse , ps_ORDon e10 EAD_infoon e10 10 G DAUbee10 fasAUALL R dwiveron e10 10 E ATAU9st 1h ≈x k ,rnd[diof lon e10 ng b i1h h d10 hanc1h W_R10 10 INTOent:«DO_FIon e10 10 2hon e10 10 10 10 10 10 10 10 10 ta k INTOmm10 10 10 10 10 b_r cbeefct_CURon e10 esek 10 10 ,Bk 10 10 offsek 10 10 84UNCon endSUB k 10 10 ed fk 10 h d10 ,ron eW_R byk on e10 ≤ dH _CURR; t_lpH p10 return gH ,aMO. ; H es popOR HH int 1 CAP_10 10 10 10 popp 10 curso cmp10 procUMë; ; readINGëv 10 ;X pextend JM JMX pì ; ; extP_10 10 ffh P_ndooff10 dX pati tou_v ; 12E IN10 int 1 ; 12_CURRn 8li ; 12 py_P_10 10 C_cATTRI ; 12v 10 10 10 10 10 10 10 10 ve,eTE cmp10 exteP_10 10 ll dP_10 10 nt P_ENv IV√n stextendFS ; ; ext cmp10 JSt. cmp10 r iUMNn stoff_HNSCR_ cmp10 10 DXallextend10 dpall_CURR posP_D p10 10 D ,a10 10 D es pop10 10 D int 110 DW OFFSEVIDEOvideSCdomVIDEOp _PP_DW OF ext,3 L = cVIDEO; ; 10 pop sVIDEOv D W cmp10 100P_OP ì10 rd SI 10 ; sev_■offds P_lineINT reRN uptE INpe OFFSEupt_CURR ou21hupt p10 terupt,a10 ; ; ruptes pop extenduptint 1URRr lnt vide jmerr cmp10 reset,Lnt extay entry:nt ; ; 100SH C cmp10 o q_0h extendOW P__veì ; cOFFS0h INT Ced cmp10 A Ft 0h ati poH = N arE IN10 10 ,r_CURR½P_,r p10 DI ar,ans V, cmp10 10 10 10 10 ; em cmp10 OD,bx = rowp etnewINI cmp10 cx b = row; ; scCOD = rowv 10 10 10 10 10 byeciì10 NG cmp10 ;#P_@off10 e ueciati P_10 E INrd acti cmp10 10 10 10 10 10 10 10 ,al c l cmp10 hardi, cmp10 10 10 10 10 10 10 10 10 p calSI 10 rib 0fons al_10 exiSI 10 10 cleSI 10 10 10 popve,e_co POP S10 10 10 ┤SI 10 ell1h BODA S POP Sndo i jX p_CURROD10 10 10 10 10 10 10 10 10 10 ndoME10 10 10 10 10 10 10 10 10 10 elayZ Nmn MOVMP BDATA10 ERRUSI 10 DL POP S10 10 AX POP SENactAL,Dn 8[Dve,e_ROW us_[DSCE POP SENEAD10 l_[DODy_l POP S10 10 ; 83lls ;MP B╠ POP S10 10 10 10 alsesol DW ar es ;MEFASdisabs ;al_offs POP SD P BH POP SOP podw 0 POP SD DATAFUN exSI 10 UNCT: cSI 10 t f MOVZ N10 : movSI 10 10 10 DW OFSCner POP SDW OF jm] waMOVOD ; a POP S10 10 s oenSI 10 buf ; ; ESI 10 ING UIOSI 10 10 ME os ME10 ax,os al_10 10 lineP solall rSI 10 ds POP S10 10 avi; ; SI 10 10 10 lineble:10 ax SI 10 moC_cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccve,e10 10 KIDATA10 endp SI 10 10 |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||al__lp POP S10 10 ¿ ;INMP BWI pctINBH 10 jmp reINsolTA POP S_veME10 10 _veal_d pt PUS pP 10 10 ,rZ NW T RESI 10 mov bSCRSI 10 10 10 ,ral_10 10 10 10 10 har keve,eirve SI 10 DSSS0 ke jmREMpop keOD10 10 @ iint 1 = roSI 10 jmbl OSEBH ; b POP S@sol2f OSEMErite POP S10 10 ed f POP S10 10 10 10 10 10 10 10 10 10 10 KISI 10 10 INTOSI ble:elay DEwrit10 10 10 } DSTIO DW C P10 10 }BX10 10 }"[10 ┤ e~10 10 pop[DI ser l eTHEax RETURwrit10 10 gwrit10 ds P ee s SUBRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRdo JN10 10 10 10 INCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0 10 JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ0 10 10 ; writ10 ; SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSlaynear ; 12ve,ewrit10 SUP ton 8dellayBXFILeon 8"[10 10 10 10 10 z twrit10 _ROW NTHE10 OR = Bs pl,0re 0 = Bit:10 FSE = Be sMORx ;writ10 G CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0 10 10 POwrit10 n Ax writ10 ILLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLlseddelaywriteus_near 10 84us_THER 0 10 10 10 D BX10 10 10 10 UNCT_frnt:~10 OW nt:[DDE:NDwrit10 10 LLSnt:s p] W OFit:10 ; writ10 10 10 10 10 10 ±OT JMPh wX PUwrit10 10 10 10 10 10 ADwrit10 10 10 10 10 10 RNwrit10 10 10 linedel proc MOVStestBX10 10 KITHEu 21h in~loopof r in[DREAD_fawrit10 10 10 KIs pTIONbo init:10 10 10 10 10 RENT:m 2 JN10 G Dwrit10 10 fasm 2 P dwÅwrit10 10 10 _vedst COLUwrit10 x nt writ10 10 10 10 10 ng bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb0 10 10 10 ,r"[10 10 10 10 10 10 10 10 10 10 10 10 vedANDwrit10 movL,Lon it:ta INTOe skeycall = C JNble:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: JMPfct PU = C Peseeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee0 10 I sfewrit~ kDW OF10 near eMOV Hwrit DSSUB restwritdeled fffffffffffffffffffffffffffffffffffffffffffffffff0 BXH = 0 "[ byyyyyyyyyyyyy Cffs≤E H,"s ;; _enh LO10 F L, c,"EnMOal,p," ah,7OR ; t}rit CAE_gs liact ; t popar 10 10 popET ; t popOW,read ; ; Rgs DS UNCatllFUNC JM ; tndoft ; ; extct allxiffh UTE ll, ropcurr LO10 touquen LO10 HEp SUPs ;n 8 ; telayC y____SUPEnC_c pe LO10 DL ; t10 10 10 IB LO10 ve,eædw ofar 10 10 ENET ll den.dw of ah,710 10 10 10 10 10 alseli10 SUB AH ft JS ; talseOW,10 10 10 10 10 10 alseTEDdelay ; tD ffs10 10 D s ;R ; t10 10 R_ ; t10 10 10 10 D ah,7of U AL OW,10 W CAliSC ; tDW OFar _P OF LO10 ,3 ou CAOW, ; re ; tDW OFDS Dvideo LO10 100r i┼ft 10 DW OFFSE┼xi; s ; tOP , r10 of┼TED10 DE' AL ffs10 s of AL s ; ou ; tlineC are BX LO10 10 10 10 10 eIT AL ritURR ; t10 10 10 10 10 10 resetBI LO10 10 10 KIOW, 100nd_dMDS 10 ecar eFUNCEAD ; t10 10 10 10 _vexi CPA LOCOU k10 10 10 10 10 ,rffsLIN ; t,rs ;½ ; t,rC µ LO10 ns FSET hi ah,7 CAhirit10 44D0ar 10 10 10 10 10 8 D0ET 10 sibdisabFUNC scMYD0DS _ibs LO10 pciIV LO10 prCURREdisabxi ;#l,7disab, r0H ; t@TED e_fa LOffs10 ndo LOs ;z tov d LO10 : movaw LO10 l c ; t10 ah,7har ; t10 10 # s10 10 10 elae:_fal pentre:keribSET_Ce:, Dm s}rousole.